1 REM MOIRE TITLE PAGE DEMO
5 STOPEXTC0
10 STOPCB2K4:STOPBMGR1:STOPFBMS0 :STOPFSCR1
15 FORJ=0 TO 318 STEP2
20 STOPDRAWJ,198,160,100 :NEXT
22 FORJ=0 TO 318 STEP2
23 STOPDRAWJ,0,160,100 :NEXT
24 FORJ=0 TO198 STEP2
25 STOPDRAW160,100,318,J   :NEXT
26 FORJ=0 TO 198 STEP2
27 STOPDRAW161,100,0,J   :NEXT
29 STOPEXTC4
30 M$="SUPERBASIC":STOPHRCS53248:M$=M$+""
40 X=120:Y=80:GOSUB50
45 M$="BY MCSOFT":M$=M$+"":X=124:Y=120:GOSUB50
47 STOPCHRX54,152,89:STOPCHRX52,160,89
48 FORJ=1TO800:NEXT
49 STOPFSCR16:     GOTO100
50 STOPCODEM$:FORJ=1TOLEN(M$)
60 STOPCHRXASC(MID$(M$,J,1)),X,Y
70 X=X+8:NEXT
80 RETURN
100 GETA$:IFA$=""THEN100
110 STOPBMGR0:STOPCB2K2